home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / B-Business / (c)b2.d64 / money exchange.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  70 lines
  1. 10 DIMC$(12),U$(12)
  2. 12 PRINT"[144][147]":POKE53280,1:POKE53281,1:POKE53272,21
  3. 13 PRINT"EXCHANGE RATES DATE MAY 6,1978"
  4. 15 PRINT"NUMBER","COUNTRY","UNIT","$ VALUE"
  5. 16 RESTORE
  6. 17 PRINT
  7. 20 C=1
  8. 30 READC$,U$,D
  9. 40 IFD=-99THEN100
  10. 50 PRINTC,C$,U$,D
  11. 60 C=C+1
  12. 70 GOTO30
  13. 100 PRINT
  14. 110 PRINT
  15. 120 PRINT"WHICH NUMBER UNITS WILL YOU START WITH"
  16. 130 INPUTC1
  17. 140 RESTORE
  18. 150 FORI=1TOC1
  19. 160 READ C$,U$,D
  20. 165 NEXTI
  21. 170 D1=D
  22. 180 PRINTC1,C$,U$,D
  23. 190 PRINT"WHICH NUMBER UNITS DO YOU WANT THEMCONVERTED TO"
  24. 200 INPUTC2
  25. 255 RESTORE
  26. 260 FORI=1TOC2
  27. 270 READC$,U$,D
  28. 280 NEXTI
  29. 285 D2=D
  30. 290 PRINTC2,C$,U$,D
  31. 295 PRINT"WHAT QUANTITY DO YOU WANT CONVERTED"
  32. 296 INPUTQ1
  33. 300 Q2=Q1*D1
  34. 310 PRINT"DOLLAR VALUE $";Q2
  35. 320 Q3=Q2/D2
  36. 330 PRINT"CONVERTED VALUE ";C$;" ";U$;" ";Q3
  37. 499 DATA"USA","DOLLAR",1
  38. 500 DATA"AUSTRALIA","DOLLAR ",1.131,"ARGENTINA","PESO",.0015
  39. 501 DATA"AUSTRIA","SCHILLING",.0668
  40. 502 DATA"BRITIAN","POUND",1.8278
  41. 503 DATA"CANADA","DOLLAR",.8864
  42. 504 DATA"FRANCE","FRANC",.2166
  43. 505 DATA"GREECE","DRACHMA",.0289
  44. 506 DATA"HOLLAND","GUILDER",.4506
  45. 507 DATA"HONG KONG","DOLLAR",.2157
  46. 508 DATA"INDIA","RUPEE",.1191
  47. 509 DATA"ISREAL","POUND",.0598
  48. 510 DATA"ITALY","LIRA",.001152
  49. 511 DATA"JAPAN","YEN",.004421
  50. 512 DATA"MEXICO","PESCO ",.0439
  51. 513 DATA"S. AFRICA","RAND",1.15
  52. 514 DATA"SWITZLAND","FRANC",.5128
  53. 515 DATA"W GERMANY","MARK",.4816
  54. 516 DATA"BELGIUM","FRANC",.031385
  55. 517 DATA"FFF","FFF",-99
  56. 518 DATA"TAIWAN","DOLLAR",.0265
  57. 519 DATA"COLOMBIA","PESO",.029
  58. 520 DATA"DENMARK","KRONE",.1774
  59. 521 DATA"FINLAND","MARKKA",.2387
  60. 522 DATA"INDONESIA","RUPIAH",.00259
  61. 523 DATA"IRAN","RIAL",.0142
  62. 524 DATA"MALAYSIA","DOLLAR",.4255
  63. 525 DATA"SINGAPORE","DOLLAR",.4317
  64. 599 DATA"FFF","FFF",-99
  65. 600 PRINT"DO YOU WANT TO CONVERT SOME MORE"
  66. 610 INPUTC$
  67. 620 IFC$="YES" THEN12
  68. 999 STOP
  69. 9999 END
  70.